home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / storage / function / dasd / ioctl / rphyt2.scr < prev    next >
Encoding:
Text File  |  1994-05-10  |  626 b   |  28 lines

  1. @thread RPHYT2.LOG
  2. @NewAlias da DASD.GRA
  3. da LOG $PROMPT="LOGGING READ PHYSICAL TEST 2"
  4. @IMPORT SYSINFO2.TXT
  5. da OPEN_PHYSICAL
  6. da GET_PHYSICAL_PARAMS
  7. da response $PROMPT="LOOPING 100 TIMES"
  8. da set HEAD=5          \
  9.        CYLINDER=20     \
  10.        SECTORSTART=1   \
  11.        SECTORCOUNT=30  \
  12.        SECTORSIZE=512  \
  13.        $BUFFER=BETA    \
  14.        $i=0            \
  15.        $op1=1          \
  16.        $result=$i      \
  17.        $kwd=$($result)          
  18.       
  19. da log $prompt="LOOP BEGINING"
  20. @loop 100
  21. da READ_PHYSICAL
  22. da add $op2=$($i) 
  23. da out 
  24. @endloop
  25.  
  26. da log $prompt="LOOP END"
  27. da CLOSE_PHYSICAL
  28. @flush da